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Double the Resolution of Your PET 

FJ Campbell 1902 Woodland Dr., Yardley, PA 19067 

Normally, the screen displays 25 x 40 characters which are 
memory mapped from 1000 locations beginning at 32768. For uses 
such os curve plotting this resolution is very course. But, it can be 
doubled to 50 x 80 by using the small square characters of one-fourth 
block size. The trick is to divide each large square into four parts 
and use a 4 bit binary number to represent the 16 states possible at 
any screen location. If we let the small square at lower right repre¬ 
sent the least significant bit and go around counter-clockwise to the 
most significant bit then the 16 graphic characters take the order; 

32,108,124,225,126,127,226,251,123,98,255,254,97,252,236,160. 
For instance, binary 1001 (decimal 9) represents the two bottom squares 
'on' and this corresponds to graphic character 248. Now, to set a 
square the binary number 0001,0010,0100 or 1000 (decimal 1,2,4 
or 8) is logical ORed with the present value of the screen location and 
the new graphic character code is POKEed in memory. To reset the 
point we can use the logical AND NOT function. 

I have written a subroutine for plotting and have driven it with a 
SWAT game. The subroutine is contained in locations 6000 to 6050. 

It is initialized with-a GOSUB 6000, and a point is plotted by ex¬ 
ecuting GOSUB 6020 with X,Y in the range 0*XS79, 0*Ys49, and 
the variable IC% set to 1 . 

I REM FRANK CAMPBELL, 1902 WOODLAND DR., 

YARDLEY, PA 19067 

10 PRINT"cd SWAT 

II PRINT"cdUSING THE EIGHT DIRECTIONS CE 
NTERED ON" 

12 PRINT"cd , 5' / MOVE THE DOT AROUND THE 
SCREEN" 

13 PRINT"cdTO CATCH THE FLY." 

14 PRINT"cdHIT 'P' ANYTIME TO PLAY SWAT 

20 PRINT"cdcd 

21 PRINT"cdHIT D' FOR DOODLE, THEN 

22 PRI NT"cdHIT 'S' TO SET A POINT AND 

24 PRINT"cdHIT 'R' TO RESET A POINT 

10 PRINT"cd SWAT 

11 PRINT"cdUSING THE EIGHT DIRECTIONS CENTERED ON" 

12 PRI NT "cd *5' ^ MOVE THE DOT AROUND THE SCREEN" 

13 PRINT"cdTO CATCH THE FLY." 

14 PRINT"cdHIT 'P' ANYTIME TO PLAY SV/AT 

20 PRINT"cdcd DOODLE 

21 PRINT"cdHIT 'D' FOR DOODLE, THEN 

22 PRINT"cdHIT 'S' TO SET A POINT AND 
24 PRINT"cdHIT 'R' TO RESET A POINT 

40 GOSUB 6000;REM INITIALIZE PLOT SUBR 
45 N%=10:GOTO 60 

50 PRINT"cs 

51 X=40: Y=25: N%=5 

52 X1=79*RND(1):Y1=49*RND(1):M1=0 

53 PRINT"hX,Y=",X"cl ",Y"cl " 

54 GOSUB 6020 

55 IF MO Ml GOTO 60 

57 POKE M/102:POKE M-1,102:POKE M+1,102:POKE M-40,102: 
POKE M+40, 102 

58 POKE M-41,102: POKE M-39,102: POKE M439,102: POKE 
M+41,102 

59 GOTO 52 

60 GET A$: REM GET KEYBOARD CHARACTER 
64 IF A$="P" OR A$="D"THEN B$=A$:GOTO 50 


65 IF A$="S" OR A$="R" THEN B$=A$:GOTO 60 

66 IF A$="" GOTO 70 

68 IF A$> "9" OR AS< "1" GOTO 60 

69 N%=VAL(A$) 

70 ON N% GOTO 90,100,110,120,170,130,140,150,160,60 

90 X=X-1 :Y-Y-1 :GOTO 170 

100 Y=Y-1 :GOTO 170 

110 X=X+1:Y=Y-1 :GOTO 170 
120 X=X-1 :GOTO 170 

130 X=X+1 .-GOTO 170 

140 X=X-I :Y=Y+1 :GOTO 170 
150 Y=Y^1 :GOTO 170 

160 X»X+I:Y»Y41 
170 IF X< 0 THEN X=0 
175 IF X > 79 THEN X-79 
180 IF Y< 0 THEN Y-0 
182 IF Y > 49 THEN Y=49 

184 IC%=1 

185 IF BS="P" GOTO 190 

186 N%~5 

187 IF B$-"S" GOTO 53 

188 GOSUB 6020 

189 FOR 1=0 TO 50:NEXT l:IC%=0:GOTO 53 

190 REM MOVE FLY WITH RANDOM FORCE 
193 A=2*RND(1):B=1 *RND(1) 

195 D=.01+(X1-X)t2+(Y1-Y)t2 

200 X1=XHA*(X1-X)4B*(YI-Y))/D 

210 Y1=YHA*(Y1-Y)4B*(X1-X))/D 

220 IF Xl< 2 THEN Xl=2 

225 IF Xl>77 THEN XI-77 

230 IF Y1 <2 THEN Yl=2 

235 IF Y1 >47 THEN Yl-47 

240 M2=337284| NT(X l/2)-40 v I NT(Y1/2) 

244 IF M2=M1 GOTO 53 
250 POKE Ml,32 
260 POKE M2,42 
270 M1=M2 

300 GOTO 53 

6000 REM HIGH RESOLUTION PLOT SU3R. 

6001 REM VARIABLES USED ARE GC%(15), IC%, JC%, KC%,X, Y,M 

6002 REM GOSUB 6000 ONCE TO INITIALIZE 

6003 DIM GC%{15) 

6004 DATA 32,108,124,225,126,127,226,251,123,98,255,254, 
97,252,236,160 

6007 FOR M=0 TO 15:READ GC%(M):NEXT M 

6008 RETURN 

6010 REM GOSUB 6020 TO PLOT X, Y POINT 

6015 REM IN RANGE 0<=X<=79, C<=Y<=49 

6016 REM'IC%=1 SETS THE POINT AND IC%=0 RESETS THE POINT 
6018 REM THE SCREEN MEMORY LOCATION IS RETURNED IN M 
6020 M-3372841 NT(X/2)-40*l NT (Y/2) 

6022 IF M<32768 OR M>33767 THEN RETURN 

6024 JC%= PEEK(M):KC%=0 

6028 IF JC%-GC%(KC%) GOTO 6040 

6030 IF KC%<>15 THEN KC%=KC%41 :GOTO 6028 

6035 KC%=0 

6040 JC%=1 

6042 IF I NT(Y)-2*INT(Y/2) THEN JC%=2 

6045 IF I NT(X)-2*lNT(X/2) GOTO 6048 

6046 JC%=12-4*JC% 

6048 IF IC%=1 THEN POKE M,GC%(JC% OR KC%) 

6049 IF IC%=0 THEN POKE M,GC%(KC% ANDNOT JC%) 

6050 RETURN 
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General Notes 

Commodore should have an expanded User Manual available in 
several weeks which will be mailed to PET owners. Commodore 
also will have a printer available in about 2 months. The price 
will apparently be $595 for an 80 column, 120 character/second 
unit which will print PET graphicsas well os the alpha-numeric 
set — sounds like a good unit. 

Commodore should also be distributing some of their software 
later in ApriI. 

Calculator/Compuler Magazine (a publication emphasizing 
educational uses primarily for children) has published some worth¬ 
while articles on PET BASIC in addition to some interesting BASIC 
programs — published by DYMAX, Box 310, Menlo Park, CA 

94025. 


Ha rdwc re 

Convenience Living Systems, 648 Sheraton Drive, Sunnyvale, 

CA 94087 announced the EXPANDAPET for $435 assembled and 
tested. The unit includes on board power supply, 16K PAM, sockets 
for 4K EPROM, 2 parallel I/O ports with handshake, slots for 3 
option cards, and all cables and brackets (several option cards ore 
available). 

Forethought Products, Box 8066, Coburg, OR97401 announced 
the PETSI PET to S-100 interface/motherboard. The board is $105 
kit or $160 assembled, and includes 4 slots, dynamic memory con¬ 
troller, and sockets for 8K 2716 EPROM. 

Excel Company, 2241 Tamalpais Ave., El Cerrito, CA 94530 
has introduced an ASCII Keyboard - PET interface for $65 ($75 for 
upper and lower case version), and they are offering a $10 discount 
for early orders. 

The Net Works, 5014 Narraganseft # 6, San Diego, CA 92107 
has an IEEE to R5-232 board (with dual ports) for $160 assembled 
and tested including on board power supplies. 


Software 

Warren D. Swan, 15933 5. Grove Avenue, Oak Forest, IL 60452 
hos a tape directory which will enoble you to hold down the fast 
forward for the approximate time interval to locate programs on 
tape, as well as a number of other programs for solo. 

Wolter J. Rychlewski, 600 V/. Mechanic, Independence, MO 
64050 hos a tape of several demonstration programs for PET for S10. 

Sawyer Software, 828 Lewis - Rt. 3, Dexter, MO 63841 isselling 
Accounting Pack 1 ($25), Financial Pack 1 (515), and Chessboard 
($10) for PET. 

MH Major, A to Z Inc., 300 Guaranty Bonk Plaza, Corpus 
Christ!, TX 78475 hos a payroll program for bi-weekly pay periods 
which he says should run with up to 25 employess. $15 for listing 
and cassette. 


Software Exchange 

Randy Julin, 15 Poncetto Dr. ^322, Daly City, CA 94015 
Michaol Richter, 2600 Colby Avenue, Los Angeles, CA 90064 
(2 bridge related programs, RPN calculator, Fourier series, hex 
arithmetic, 80 digit integer arithmetic, editor, word processor, 
others) 


Programs on Tape 

SEQUENCE — you have to sort a character list 

STATECAPS — quiz on states and capitals from 3/78 Kilobaud 

SWAT — see article by F. Campbell in this issue 

RACETRACK — sec listing in this issue — RE McGco 

DEFLECTION — see listing in this issue — F. Dunlap 

ADDITION — math drill — F. Dunlap,C. Pitcairn 

OTHELLO — from ?/77 Byte 

OTHELLO for 2 — F. Dunlap 

BAGELS — like Mastermind — J. Butterfield 

Cash Flow/Return on Investment — R. Goldsmith 


$2 for first program including cassette and postage, $1 for each 
additional — max 4 per tape. Most of the programs will be listed 
in this newsletter, so the programs on tape service is available only 
to save you key entry time. It is priced to hopefully cover the cost 
of a part time person to copy and mail the tapes. 


Misccl Igneous 

Errors in previous newsletter: page 8 should have line 1100 
RETURN; page 13 line 350 is missing left parenthesis — should 
be (24-M). 

Dr. Ted J. Cooper, Ohio Nuclear, CT Systems Eng., 6000 
Cochran Rd., Solon, OH 44139 has developed o lot of hardware to 
interface PET to the outside world (including an LSI-1 I interface). 

He would like to talk to some one who knows the system monitor well. 

If PRINTing to cassette file, Frank Campbell suggests that^you 
can use more than one varioble in a PRINT* by including [","] be¬ 
tween variables: PRINFl, N V'X$. 

Larry E. Ellison, 19 Huntingdon Lane, Willirgboro, NJ 08046 
wants to contact people interested in using the PET for Bible study. 

JR Kinard, Austin, TX suggested hooking up a 2000 ohm earphone 
element between the Tape Read line and ground or +5V to listen to 
the audio signal for program searching. 

Thanks to Richard Rosner Connecticut Microcomputer, 150 Pocono 
Rd., Brookfield, CT 06804) fordoing some program listings for us 
with his IEEE-RS232 interface and printer. 


Generating Square Waves with the PET 

JR Kinnard/ 623 Amesbury Rd., Austin, TX 78752 

At times it would be desirable to generate an audio signal from 
the PET to add special effects to games, experiment v/ith computer 
music, have the computer call you after a long program, or perhaps 
drive a low speed MODEM for telephone line communication. 

A programmable square wave generator is included in the MCS6522 
which interfaces the PET fbrallel User Port. When the tape drive is 
rot in operation, the generator can be used to produce one of 514 
different frequencies between 243HZ and 125KHZ on CB2 (User Port 
pin M). The feature of the 6522 which makes this possible is a re¬ 
circulating shift register intended for serial data input and output. 
V/ith a square wave pattern loaded into the shift register and the 
control set for free running output under timer controlled rate, a 
continuous square wave is produced on CB2. 

The BASIC statements needed to control the output are as follows: 

POKE 59467,16 Sets shift register to free running output mode. 

POKE 59464,C Sets shift rate. C is an integer of 0 to 255. 

POKE 59466,D Loads shift register. D should be 15, 51, or 
85 for a square wave output. 


The frequency of the square wave can be determined from fhe 


FREQUENCY = 500000 H Z 
(C'2)(D1) 


Where: D1 - 8 for D - 15 
D1 -4 for D -51 
D1 - 2 for D - 85 


Readi/rg or writing the shift register must be done lost as this 
initiates the shifting operation. The control register at 59467 must 
be reloaded with 0 for the tape drive to write correctly. 

Do not connect a speaker or earphones directly to the CB2 output 
of the PET. An amplifier is necessary to isolate the 6522 from 
inductive loads. „ 

The TAPE *2 READ signal on User Port pin 8 (TAPE "7 READ and 
TAPE V/RITE are reversed in the introductory manual) appears to be 
the CBI line from the 6522 and carries fhe shift clock signal. V/ith 
both CBI and CB2 cvailable, it may be possible to use the I/O port 
expansion scheme described in the MCS6522 Data Sheet. 


PET User Notes published 6 (or more) times a year by Gene Beals, 
PET User Group, Box 371, Montgomeryville, PA 18936. Member¬ 
ship/subscription on annual basis is $5 (U.S.) in U.S. and Canada, 
and $10 in other countries. Copyright 1978 
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Interfacing an Audio Cassette Deck to the Cassette I/O Port 
of Your PET 

Rjssell Martin Ames, Iowa 

It is useful to have two tape record/playback units interfaced 
to a microprocessor. It facilitates file editing end allows the use 
of the one unit for programs and the second for the data files used 
by the program. An added advantage for PET owners is that the 
second tape unit can have useful features such as a tape counter, 
which the tape deck that accompanies the PET lacks. 

A quick experiment shows the tape deck that comes with the PET 
works perfectly when attcched to fne second tape I/O port of the 
PET. This indicated the machine treats both ports the same, at 
least on o hardware basis. The operating system software (or,if you 
prefer, firmware) favors the *1 tape with various defaults on OPEN 
statements, etc. going to it. However, this does not affect our 
interfacing effort, which is a hardware exercise. 

An examination of the none-too-plcntiful documentation which 
Commodore provides with the PET snows that the tape I/O port 
consists of six lines. The A line is ground, which should be self 
explanatory. The B line is *5 volts (DC) which can be used to 
power the limited TTL logic used in the interface. The C line puts 
out *6.6 volts DC (approximately) which is also used to power the 
motor of the ^1 tape drive. This line cannot be used to power the 
*2 tape drive in most cases. Many tape recorders use higher volt¬ 
ages and cannot be driven by **•6.6 v. Even those that normally 
operate on six volts often are unable to draw enough power from the 
PET port to run at a constant tape speed, which is a necessity. 
However, this line is still useful, as will be seen later. The D line 
is the read line over which data is sent from the tape unit to the 
PET. The E line is the write line over which data is sent from the 
PET to the tape unit to be recorded. The F line is the sense line 
which tells the PET when to start the tape unit running. In the 
PET's ^1 tape drive, pushing the PLAY button closes a switch to 
which the sense line has been connected to ground. When The PET 
senses this it turns on the +6.6v power to run the tape drive motor. 

The figure shows the circuitry for an interface which can be used 
with any good quality (about $40 retail) mono cassette recorder. 

It works as follows. A STSP switch is closed to ground fromthe sense 
line, after the recorder's controls have been set appropriately for 
record or playback . The six volt output from the motor line acti¬ 
vates a relay which closes the remote control switch of the recorder. 
This turns on the recorder. The write line can come directly from 
the I/O port info the auxiliary (AUX) input of the recorder. The 
output from tope playback comes from the eerphone output (EAR) 
through a signal diode, across a Zener diode (4.7 volt) ond a 1000 
ohm resister, end into both inputs of a Schmidt trigger NAND gate. 
This digitizes the signal which is otherwise too sinusoidal for the 
PET to read. The NAND gate's output then goes to the read line of 
the I/O port. 

I have been using this interface fora month with quite satisfactory 
results. Files recorded with either tape unit con be played back on 
the Other. My # 2 tape deck has selectable Automatic Level Control 
or manual level control for recording. I use the latter with volume 
set to slightly more than l/2 maximum. It also has a tone control 
which I have set to high, although I do not believe that is critical. 

I run the tape recorder on AC. Of course, shielded audio cable is 
used for the data transfer linos. I used a Cinch 251-06-30-160 edge 
card connector. Other parts, except for the Schmidt NAND gate 
ond Zener diode, are available at Radio Shock. 

I would like to thank Allen L. Chesley for his assistance in the 
design of this interface. 


Parts 

I 74132 TTL Quad 2 Input Schmidt NAND Gate 
1 1 N4148 or 1N914 Diode 
I 1N750A 4.7 volt Zener Diode 
I 6 VDC SPDT Relay (fcidio Shack 2/5-004) 

1 1 K ft Resister 1/4 Watt 

1 SPST Switch (mini toggle switches are nice) 

I Edge Connector (Cinch 250-06-90-170 or 251-06-30-160 or 
other manufacturer's equivalent) 

Misc. — Chassis box, 1C socket, assorted audio jacks, cable, 
wire, hardware 


•5V ("B" Line of PET) 


Jack of 
Recorder 





f \ 


E_ 


- To ,, C U Line 

— To "F" Line 


i-• 


X 


Stimulating Simulations by Dr. C.William Engle S5 

an interesting book containing 10 simulations 
written in BASIC with instructions and 
possible modifications included 

PET programs on cassette — all 6 for S8 

ABTAPE 1 includes Life, Biorythm, Othello, 
Mastermind II, Multiprimer (math tutorial- 
deduction game), and Klingon Capture 


12 

C-10 cassettes in plastic cases 

$11 

12 

C-30 cassettes (no cases) 

S10 

PROTECT-A-PET 

$12 


a custom fitted clear vinyl dust cover for 
your PET to protect it on those rare occasions 
when not in use 

all items postpaid in U.S. 


A B Computers p.o.boxi<m 

Perkasie. Pa. 18944 
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The COMPUTER FACTORY, Inc 


790 MADISON AVE 


NEW YORK, N Y 


10021 


Now you can have the computing power that up to now only major corporations have been able to afford...at a 
price less than the cost of a Selectric typewriter It's the "plug-in-and-use” PET 2001 Computer by Commodore. 
And it's available npw for delivery within 4 weeks'll 

To make your PET even more valuable, The COMPUTER FACTORY, Inc. offers low cost Street Ware™ financial 
software on compatible cassette tapes, complete with easy to follow written instructions. Street Ware^M j s the 
registered trademark of National Corporate Sciences, Inc. (SEC Registered Investment Advisors since 1969} finan¬ 
cial software, and The COMPUTER FACTORY. Inc. is the exclusive distributor. Our growing library of PET 
software includes: 


MORTGAGE [PMO-8031 $15.95 

This program calculates mortage informatiort when provided with certain 
basic data. Calculated information Includes Principal paid :o date. Inc 
tcrc5l paid to dote; Total of payments paid to dote. Outstanding princi¬ 
pal; Outstanding interest. Total payments remaining. Mortgage euuiiv. 
Interest and principal breakdown 'or any month. 

ANNUAL REPORT ANALYZER [PAR-803M1 $22.95 

(Manual Data Input] 

With Annual Report in hand, you input revenue and income figures for 
previous hve years (estimated earnings, too. if you w>sh) as well as basic 
Balance Sheet data. This Street Ware program computes Percentage 
vft3rT5-ye.il growth in sales, profits, .md'earnings per share: Average earn¬ 
ings per snare and compound earnings pel shaie over *} years. PE Ratio. 
Profit margin for provous 5 years, with ,i graphic display that plots rev 
enucs against profit margins; Current ratio; Book value. Return on equ 
ity. Dobt to equity '300. Payout witio. Dividend yield. Implied growth 
rate; Implied total return. Theoretical PE ratio. Theoretical value for 
stock. 

STOCK ANALYZER [PAR-803A] $34.95 

(Automatic Data Entry) 

fUscd only with Street Ware Data Dose. Sec bdovr. I 
This tape includes a copy ot ANNUAL REPORT ANALYZER IPAR- 
803MJ on reverse Side The program is essentially the same os PAH 
803M, excepl that data is automatically read from Data Base tapes sim¬ 
ply by entering ticker symbols 

DATABASE $1 75.00 PER YEAR 

(Updated monthly: total of J7 tapes per year) 

(Used with PAR S03A and/or PSS-603. described below. I 
Includes statistical data on ovc* 2.500 Industrial Stocks on the Ne»v 
York. American, and Over the Countei Exchanges. Data base tapes are 
updated monthly by stock exchange on o rotating bas s. i.e.. twelve taprs 
per vea< Data includes Ticket symbol. Corporate name. Industrial 
classification, Revenues, earnings, and earnings per share foi previous 5 
v**ais; Estimated earnings foi current year. Shares outstanding, current 
assets, current liabilities. Dividends, long-term debt. 

STOCKSCREEN (PSS-8031 S22.50 

(RequiresSecond Tape Drive or PET Printerf 
Used with Data Base, described above. 

This program allows you to screen the 2.500-* stocks in the National 


Corporate Sciences. Inc. Data Base by any combination of: Return on 
equity Yield. Payout ratio. Implied growth iate. PE ratio. Percentage 
growth. Debt to equity ratio: Current ratio 

OPTIONS IPOP 803M] $24.95 

(Manual Data Entry) 

The National Corporate Sciences' version of the Black-Schdes equation, 
this program computes the theoretical value of an option. The program 
can be used to oqual advantage by both options buyers and options 
writers. Value o’ option is graphically depicted by movement in stock 
price and d»v3 io expiration. 

OPTIONS [POP-803A] $24.95 

(Au turn a tit Data Entry) 

Some os OPTIONS [POP 803M| except thot volatility and dividend data 
are supplied by a separate data base (available in March. 19781. 

FINANCE [PFI-803] $12.95 

A variety ol useful financial formulas in one simple easy to use program. 
Includes Compound interest. Discounts. Nominal and effective interest; 
Annuities. Loans; Depreciation; Earned interest table 

BONDS IPBO-803] $9.95 

A variety of bond programs to calculate interest and yield to maturity, 
present yalue and future value of bonds, effective yield, and basis price of 
bonds 

CHECKBOOK [PCH-803) $15.95 

A cosh receipts and disbursements program thot will make d a breeze to 
keep accounts and up to date records. Checks can be sorted by type, 
e.g.. medical, legal, tox deductible, rent, food, etc. 

Available in March. 1978: 

INVENTORY CONTROL [PIC-8031 

(Requires Second Tape Drive) 

ACCOUNTS RECEIVABLE [PAR-8031 

(Requires Second Tape Drive) 

Pursuant to Puh 206(4)-)(A)(3) of tho Securities and Exchange Com- 
mission, it should be noted tl#t the above mentioned programs should 
not hi and of themselves be utilieed in making investment decisions The 
scope and usefulness ol the above programs are limited, with values in 
some cases bang purely theoretical. 


To get your PET with 8-K memory and your Street Ware^M financial software, just fill out the coupon below 
and mail it to us along with your check. We'll delivery your PET within 4 weeks. 

Or, come and see us at The COMPUTER FACTORY, Inc., where you can see PET and various software packages 
in operation. 


The COMPUTER FACTORY, Inc. 

790 Madison Avenue 
New York, New York 10021 
(212J 249 1666 

□ Enclosed is my check for S810 in payment of a PET 2001 Computer, Model 8-K at S795, plus $15 shipping. 

D Also enclosed is my check for S.in payment of the following programs. Please order by number. 

.PMO-803 $15.95 Mortgage .POP 803A $24.95 Options (Automatic) 

.PAR-803M $22.95 Annual Report Analyzer (Manual).PFI-803 $12.95 Finance 

.PAR 803A S34.95 Stock Analyzer(Auto-incl.803M) .PBO-803 $9.95 Bonds 

.POP-803M $24.95 Options (Manual) .PCH-803 $15.95 Checkbook 

.PSS-803 $22.50 StockScreen .DATA BASE $175.00 per year 

(subscription not assignable without consent) 

NAME. 

ADDRESS. 


CITY 


STATE 


ZIP 


TELEPHONE 























Notes from Warren Swan, 15933 S. Grove Ave., Oak Forest, IL 


I have been messing around with the memory on my PET to see how 
the BASIC interpreter works. So far I have come up with the 
following information. 

PET BASIC begins storing your program ct locations 1024 on. Each 
line is stored in the following format: The first two bytes contain a 
pointer to the next statement, low order 8 bits first followed by the 
high order bits. For example, if the next statement storts at 420 hex, 
then the first two bytes of the statement will contain 20 and 4 hex, 
respectively. The next two bytes contain the line number, again in 
reverse order. For example the line number 500 would be stored os 
244 and 1 decimal, respectively. Note 1 *256+244 equals 500. The 
maximum line number, 63999, is stored os 255 and 249 decimal. 
Following these 4 bytes is your "line" interpreted so that each key¬ 
word becomes one byte (sec table below). The lost byte in the line 
contains a zero, signifying end of line. The LISTer in BASIC merely 
"disinterprets" the line number and each keyword byte, printing out 
the keyword it represents in its olace. 

Also, here is a dnady little disinterpreter (sub)program. Did you 
ever see a program list itself without using the LIST command? With 
very little modification this program will do just that. However, it 
was written for the adventurous soul .who wants to see what is in the 
guts of his PET. 


0 REM EXPERIMENTAL DISINTERPRETER 3Y WARREN D SV/AN 
10 CLR:T-8184-FRE(0) 

20 DIM C$(255):C$(0)=CHR$(13) 

30 FOR 1=1 TO 31:C$(l)=" r vs"+STR$(l)* "off":NEXT 
40 FOR 1-32 TO 127:C$(I)-CHR$(I): NEXT 
50 FOR 1-128 TO 202: READ CS(I):NEXT 

60 FOR 1=203 T0 254:C$(l)= ,, rvs ,, t-STRS(l)-"off ,, :NEXT:CS(255)=V l 
70 INPUT’LOWER, UPPER ADDRESS";L, U 
80 IF U>65535 OR U<l THEN U=T 
90 FOR l=L TO U:P=PEEK(I):PRINT C$(P); 

100 IF P-34 OR P 98 THEN PRINT C$(P)CHR$(20); 

110 NEXT:PRINT:COTO 70 

500 DATA END,FOR, NEXT,DATA, INPUT*, INPUT,DIM, READ, LET 
510 DATA GOTO, RUN, IF, RESTORE, GOSUB, RETURN, REM, STOP 
520 DATA ON,WAIT, LOAD, SAVE, VERIFY, DEF, POKE, PRINT* 

530 DATA PRINT, CONT, LIST,CLR,CMD, SYS,OPEN,CLOSE, GET 
540 DATA NEW,TAB(,TO, FN,SPC(, THEN, NOT, STEP, 

550 DATA AND, OR, > , , <, SGN, INT, ABS, USR, FRE, POS, SQR 
560 DATA RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STRS 
570 DATA VAL,ASC,CHR$, LEFTS, RIGHTS, MIDS 

Instructions: You will be asked for a lower core address and upper 
core address of the area you want disinterpretod. Usually the lower 
address should not be less than 1024. If you enter on upper address 
greater than 65535 or less than I, the upper address will be set to the 
actual upper address of your program calculated in line 10. If you 
hove a 4K PET the constant in line 10 should be changed to 4088 
(I think). For example, to disinterpret this program, supply it with 
the lower and upper limit of 1024 and 0 respectively. 


More Lights, Bells, and Whistles! 

Warren D. Swan 

How would you like to be able to make your PET's CRT blink, or 
turn it off or on at will without losing anything displayed on it ? 
Simple! To turn it off, merely execute the statement POKE 59409,52 
and the screen will be turned off. How do you turn it back on? 

There are two ways. First, execute the statement POKE 59409,60 or 
second, have the screen scroll up a line by printing off the bottom 
line. 

Dio' you know that you con also sense when the RVS key is being 
pressed ir. your program? Location 59410 normally contains 255. 
However, pressing the RVS key will turn off the 0 bit changing it 
to a 254. Also, left bracket turns off the 1 bit, space turns off the 
2 bit, ond less-than the 3 bit. So if you want a command that will 
wait for the user to press the space key, just use WAIT 59410,4,4. 


Table by Warren D. Swan 

Number to Keyboard Conversion (Numbers in Decimal) 


0: End of line 

89: Y 

148: SAVE 

1-31: unused 

90: Z 

149: VERIFY 

32: space 

91: [ 

150: DEF 

33: ! 

92: \ 

151: POKE 

34: " 

93: ) 

152: PRINT* 

35: * 

94: t 

153: PRINT 

36: 5 

95:*— 

154: CONT 

37: % 

96: space 

155: LIST 

38; & 

97: 1 

156: CLR 

39: 1 

98: " 

157: CMD 

40: ( 

99: * 

158: SYS 

41: ) 

100: $ 

159: OPEN 

42: * 

101: % 

160: CLOSE 

43: + 

102: & 

161: GET 

44: , 

103: ' 

162: NEW 

45: - 

104: ( 

163: TAB( 

46; . 

105: ) 

164: TO 

47: / 

106: * 

165: FN 

48: 0 

107: + 

166: SPC( 

49: 1 

108: , 

167: THEN 

50: 2 

109: - 

168: NOT 

51: 3 

110: . 

169: STEP 

52: 4 

Ill: / 

170: + 

53; 5 

112: 0 

171: - 

54: 6 

113: 1 

172: * 

55: 7 

114: 2 

173: / 

56: 8 

115: 3 

174: t 

57: 9 

116: 4 

175: AND 

58: : 

117: 5 

176: OR 

59: ; 

118: 6 

177: > 

60 : < 

119: 7 

178: = 

61: ■ 

120: 8 

179: < 

62: > 

121: 9 

180: SGN 

63: ? 

122: : 

181: INT 

64: @ 

123: ; 

182: ABS 

65: A 

124:< 

183: USR 

66: B 

125: = 

184: FRE 

67: C 

126: > 

185: POS 

68: D 

127: ? 

186: SQR 

69: E 

128: END 

187: RND 

70: F 

129: FOR 

188: LOG 

71: G 

130: NEXT 

189: EXP 

72: H 

131: DATA 

190: COS 

73: 1 

132: INPUT* 

191: SIN 

74: J 

133: INPUT 

192: TAN 

75: K 

134: DIM 

193: ATN 

76: L 

135: READ 

194: PEEK 

77: M 

136: LET 

195; LEN 

78: N 

137: GOTO 

196: STRS 

79: O 

138: RUN 

197: VAL 

80: P 

139: IF 

198: ASC 

81: Q 

140: RESTORE 

199: CHR$ 

82: R 

141: GOSUB 

200: LEFTS 

83: S 

142: RETURN 

201: RIGHTS 

84: T 

143: REM 

202: MIDS 

85: U 

144: STOP 

203-254: unused 

86: V 

145; ON 

255: nr 

87: W 

146: WAIT 


88: X 

147: LOAD 



Note: The keywords for the TAB and SPC functions carry the left 
parenthesis with them. The other functions do not. 


For Example, The line 110 PRINT TAB(X);RND(1) would translate 
to: XX YY 110 0 153 32 163 88 41 59 187 40 49 41 0 
where XX and YY are the pointer to the next instruction in core 
(YY‘256+XX). 
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TIS 


TOTAL INFORMATION SERVICES 

P. O. Box 921 

Los Alamos, NM 87544 

*+* HELP AT LAST *** 

TIS has writeups and software 
to help you use your PBT. 

WORKBOOKS 

Getting Started $4.00 

Strings and Arrays 3.95 

Graphics 4.95 

For a FREE flyer on these and 
other products send a SASE. 


ANNOUNCING 


Excerpted notes from Jim Butterfeld, 14 Brooklyn Ave. 

Toronto, Ontario, Canada M**M 2X5 

PET has a little characteristic on FOR .. NEXT that might bo 
well to note. Try this quickie: 

100 FOR J=l TO 3 
200 PRINT "J"; 

300 FOR K=1 TO 3 
400 PRINT "K"; 

500 GOTO 700 
600 NEXT K 
700 NEXT J 

An unlikely piece of coding; but line 500 could represent a con¬ 
ditional statement which aborted the inner loop. Run it, and 
you'll get JKJKJK. 

Now - the theory is that you can put in NEXT without a var¬ 
iable and it will work just as well; saves you memory, punchup 
time, etc. Try replacing lines 600 and 700 by NEXT (without the 
K and J) and run. Who? You get a different answer: JKKK. 

What does oil this mean? Far as I can tell, it's OK to abort 
loops, but: be sure to put the variable identifier in all your NEXT 
statements if you do. I have checked several combinations of 
aborted loops ard they seem to behove OK. It might be a worth¬ 
while habit to avoid using NEX1 alone. 

Spent a couple of hours on a TR5-80 last week. The BASIC is 
limited, of course, but not so bad (peculiar: you get one array, 
called A). What did take me aback is that the keyboard on the 
unit I used was awful. Any time I hit the 1 key I'd get a random 
number of I's on the screen: anything from I to 1111111. Thought 
the PET keyboard was something to grumble about . . I'll quit 
complaining. 

Have thrown together a little BAGELS program. No big deal, 
but the following items might be considered as PET-characteristic: 
—the clear screen, line 140; —dynamic array allocation, line 110; 
—use of TAB and SPC, lines 200 and 260; — use of compound 
statements after IF, lines 280 and 350; —inclusion of a NEXT 
statement within an IF statement, lino 350; —conversion of a 
variable into a single string digit, line 240; --use of the (numeric) 
GET statement (line 220) with validation (line 230) and echoing 
(line 240). The real moral of the story is using the screen and 
input to provide a "natural" human interface . . which is hard to 
do on other processors. 


BAGELS 


Jim Butterfield 



THE 

commodore 


PET 


personal computer 

Now Available in the Washington D.C. Area From . 


cnmpuiER svsTEms store 

TYSONS CORNER VA. NEAR HOLIDAY INN 
1984 Chain Bridge Rd., McLean, VA 22101 
703 - 821-8333 

' A FULL UNE COMPUTER STORE SALES - SERVICE - SOFTWARE" 


The human interface can bo greatly aided by PET's display capa¬ 
bilities. Note how ^oth input and output are enhanced in this 
version if the well-known gome. You may change the number of 
digits or the maximum value of each digit by revising the values 
of D and M in line 100. 

100 D=4 ; M=6 set game parameters 

110 DIM A(D), B(D),C(D) dynamic array allocation 

120 FOR J-l TO D : A(J)-INT(M*RND(I)+l) 

130 NEXT J generate mystery number 

140 PRINT "cs BAGELS - J BUTTERFIELD 1 ' clear;header 
150 PRINT: PRINT "I HAVE A NUMBER.." 

160 PRINT ' ..OF' ; D;"OIGITS EACH FROM"; 

170 PRINT " 1 TO";M 

180 PRINT 'CAN YOU GUESS IT?" : PRINT 
190 FOR G~1 TO D^M 
200 PRINT G; TAB (6); 

210 FOR P=1 TO D input each digit 

220 GET X 

230 IF X<1 OR X>M GOTO 220 legal? 

240 B<P)-X : PRINT RIGHT$(STR$(X), I); 

250 NEXT P 

260 X=0 ; PRINT SPC(4); 

270 FOR J-l TO D : C(J)=A(J) 

280 IF A(J)-B(J) THEN X=X+1 : C(J)=0 

290 IF A(J)=B(J) THEN B(J)=-1 

300 NEXT J 

310 IF X=D GOTO 430 

320 PRINT X; "EXACT"; : X-0 

330 FOR J-l TO D 

340 FOR K= 1 TO D 

350 IF B(J)OC(K) THEN NEXT K : GOTO 370 
360 X=X-M : C(K)"0 


6 



One User's Experience with "canned" PET Software 

Wes Fasnachr, West Chester State Cpllege, West Chester, PA 

On March 1st, I ordered the "Introductory Special"($9.95) and 
"Stimulating Simulations"(Sl4.95) from Personal Software of Cam¬ 
bridge, MA; the "PET Cassette" from Don Alan Enterprises of 
Marlton, NJ; and the "PET Cassette" ($8) from A B Computers of 
Perkasie, PA. 

The response from all three was good - oil arrived in the March 
7th mail. From Personcl Software, I received two cassettes in plas¬ 
tic cases and a 64 page booklet to accompany the Simulations tape. 
This was all packaged nicely in a padded envelope. The envelope 
also contained a note with a friendly "hello" and instructions on 
what to do if the programs do not load properly. A cord was in¬ 
cluded containing the name of the programs on each of the cassettes. 

I should also note that the tapes contained programs for the PET on 
one side and the TRS-80 on the other. 

The tapes from A B Computers and Don Alan Enterprises simply 
came in cassette nailers with the vendor's name stamped on the box. 
Don Alan contained no indication of what programs are on the tape, 
while A B had a paper band around the cassette containing the 
program names. 

The Personal Software Introductory Cassette contained four pro¬ 
grams - Kingdom, One Queen, Matador, and Poker. Kingdom is 
a version of the Sumericn Gcme, a simulation of a Kirig running 
his country. It's good Tor children. One Queen is a chess board 
game in which the user tries to outmaneuver the computer's queen. 
Matador is o bull fight simulation involving times responses on the 
Dart of the user. The Poker program wouldn't load. The Simulations 
tope contained 10 small programs called Art Auction, Monster 
Chase, Lost Treasure. Gone Fishing, Space Flight, Forest Fire, 
Nautical Navigation, Business Management, Rare Birds, and Dia¬ 
mond Thief. In the accompanying booklet. Dr. Engel, rhe author, 
gives a description of each and points out how it might be modified 
to expand the scope of the simulations. The simulations were inter¬ 
esting and provide a good base for user-developed extensions. 

The A B Computers tope contained six programs - Othollo, Mas¬ 
termind, Klingcap, Biorythm, Multiprimer, ond Life. These programs 


were all well-done. Othello is a board game somewhat on rhe order 
of checkers. Mastermind plays the game of mastermind. Klingcap 
is a Klingon capture program. Biorythm displays a biorythm graph. 
Multiprimer is an interesting game involving multiplication. It has 
some good educational possibilities. Life plays John Conway's 
game of Life. At $8, this tape is a good buy. 

I was unable to load any programs from the Don Alan tape. The 
PET would display garbage characters as the name of the program 
and then terminate with a load error. Apparently the tape drives 
of their PET and mine were incompatible. 

Personal Software included a phone number to call if I had trouble 
with their tapes, and a call to them resulted in a friendly and 
business-like conversation with a young lady. She said I had two 
choices: I could got my money back or they would send me a tape 
containing the Poker game. I chose the latter ond we went on to 
discuss how I liked the programs and why the topes can't always be 
read, etc. She was very knowledgable and informative about the 
Personal Software products ond operation. All told, my experiences 
with Personal Software have bees very satisfying. 

Don Alan had no phone number and no instructions or. whot to do 
if the tape was bad, so I wrote to them asking them for another tope. 
They have rot had time to respond os of this writing. 

One important area that needs attention by most of the programs 
is their method of interacting with the user. In many cases, inex¬ 
perienced users did rot know whot to enter. If rhe person entered 
invalid data, it was nor uncommon for the program to gef confused 
and either abort or take some unusual actions. If we really want 
computers to be commonly used in home and school, programs will 
hove to be very forgiving ond helpful in the way they interact with 
the user. For example, a user should be able to type HELP in res¬ 
ponse to any input request and get an explanation and an example of 
what rhe program is looking for. Now is the time to adopt some 
standards of this type - before large amounts of software are devel¬ 
oped. I'd be happy to hear from readers on this subject. 

led. note: the Don Alan people have replaced any tape if the pur¬ 
chaser has experienced read problems] 


QUALITY SOFTWARE FOR YOUR PET 


MUSIC 

Play music on your PET, includes "DIXIE" on the program or you can compose your own music and replay if again and again. SI2.00 

ENTRY 

Formatted key entry program for business application; use cassette, memory, or external orvirtual combination of them as 

storage. Can also be used for media conversion. $12.00 

DAY/TIMER 

Display aralog clock on your PET, AM/PM change background, set alarm and appointments, message for appointment, also 

instant time response from all over the world. $12.00 

MONITOR 

Include memory dump in hex, octal, decimal and disassembler on ALL OF PET MEMORY LOCATION. 

Machine language loading and modification from cassette tape or keyboard. $20.00 

GRAPH 

Generate more than 30 different graphic patterns on the PET display, with precise time control. Controls are from 

keyboard or from the cassette data. $12.00 

MANY, MANY MORE TO COME, SEND FOR OUR SOFTWARE CATALOGUE. 

PACKAGE DEAL - All Of the Above ONLY $49.95 SPECIFY P5001 

Dealer Inquiries Invited 

PHONE ORDERS - MAIL ORDERS - CHARGEX - BANK AMERICARD 

HOME COMPUTER CENTRE 
6101 YONGE STREET 
WILLOWDALE, ONTARIO 
CANADA, M2M 3W2 
TEL: (416) 222-1 166 


7 


ASCII KEYBOARD TO PET INTERFACE 
Want to interface an ASCII keyboard to your PET? 


WE HAVE ONE !! 
FEATURES 


- Interface any ASCII encoded keyboard to the PET 

- PET keyboard can be used simultaneously 

- No modification to the PET necessary 

- Auxiliary power +5V and -12V for your keyboard 

- Jumper selectable for data strobe polarity 

- All PET functions such as HOME, CURSORS, etc. 

are implemented 

- Recognize all upper case characters, numeric, 

and punctuations (no graphic or lower case) 

- One ribbon cable and one connector included 

- 3.5" x 4" single sided PC board 

- Completely assembled and checked out 

- Only $65 ($10 discount to members if ordered 

before May 15, 1978) 

- Send for free specifications and details 

TERMS 


We accept checks, money orders, VISA, BA, 
and MC. Include $2 for shipping and handling. 
Personal checks will take 2 to 3 weeks to clear. 
Please allow up to 4 weeks for delivery. 

TO ORDER 

Send $65 + $2 or your VISA, BA, or MC card 
number and expiration date to : 


EXCEL COMPANY 

2241 Tamalpais Avenue 
El Cerrito, California 94530 


commodore Radio Shack 



EITHER WAY... We've got software for you! 


Put your computer to work at home or on the job with these programs 
and adaptable subroutines. For 8K PETs or 4K TRS-80s with Level I 
BASIC, on cassette to save you typing time. 

INTRODUCTORY SPECIAL: Play POKER against your computer. 
Match wits to corner ONE QUEEN on a graphic chessboard. Enrich 
your KINGDOM amid wars, famine, earthquakes, assassinations, etc. 
Test your bravery as a MATADOR in a bullring. Nearly 1000 lines of 
BASIC with 4 full length games. S14.95 

STIMULATING SIMULATIONS by Dr. C. W. Engel: Ten original 
simulation games such as Diamond Thief, Monster Chase. Lost 
Treasure and Space Flight, complete with a 64 page illustrated book 
giving flowcharts, listings and suggested modifications -$14.95 

6502 ASSEMBLER IN BASIC (for PET only): Accepts all standard 
6502 instruction mnemonics, pseudo-ops, and addressing modes 
plus new TEXT pseudo-op. Evaluates binary, octal, hex, decimal, and 
character constants, symbols and expressions. Uses PETIine number 
and cursor editing features for assembler source code. Supports 
execution of assembled programs with keyboard and display I/O. 

Fully documented and easily understood and modified. $24.95 

PERSONAL FINANCE: INSURE finds your life insurance needs 
based on ages of dependents, college plans, Social Security, etc 
HOME compares buying a house to renting an apartment, 
considering inflation, mortgage rates and taxes. SPEND tracks your 
monthly bills credit card purchases and checking account balance to 

see if you’re spending too fast. All 3 for.$12.95 

GRAPHICS PACKAGE: DOODLER by Les Logan quickly draws 
horizontal, vertical and diagonal lines and saves the patterns for later 
display. PLOTTER by Peter Maggs creates adjustable bar charts and 
linear or log scale graphs (80 by 50 points on PET, 128 by 48 on TRS- 
80 ) with automatic scaling and labeling of axes—perfect for data 
analysis. LETTER displays messages in large block letters from a full 

character set under program control. All for. SI2.95 

BRIDGE CHALLENGER: (For PET only, by George Duisman) Play 
Contract Bridge against a tough opponent: your PET computer. Let 
the PET deal any of 10 million hands, or set up deals for study and 
practice play and save them on cassette. Replaydeals whenthecards 
are known. Or play two person Duplicate Bridge. With 3D TIC- 
TACTOE: Play on a 4x4x4 cube against your PET. $14.95 

ARMCHAIR FOOTBALL: (For TRS-80 only, by Steve Harter) Play 
long and short passes, draws, sneaks, pitches, sweeps and punts to 
score touchdowns and field goals on a graphic football field. Defend 
with rush, blitz, key man-to-man and pass interception strategies. 

With simple graphic GOLF and TENNIS programs, too- $14.95 

ORDERS: Check, money order or VISA/Master Charge accepted. We 
guarantee you functioning programs , readable cassettes and prompt 
delivery. Our catalog, $1 or free with any cassette, fully documents 
these and other programs and describes our royalty program tor 
software authors. Fora FREE flyer , use reader service card, or send a 
self-addressed stamped envelope for faster service. 

Personal Software™ 

wmmm P.o. Box 136-P4, Cambridge, MA 02138 WiK 
VISA/MC telephone orders welcome at (617) 783-0694 
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PET CHARACTER CODES 


There are two ways Jo write to the screen of your PET: either POKEing screen memory (32768-33747) or by PRINTing. Besides this, there 
are two ways in which memory is interprested by the character generator: standard mode (location 59468 = binary XXXXI 10X) or lower case 
mode (location / XXXXI I0X). Some of this confusion may be simplified with a character code chart. In the chart the OFF and RVS columns 
refer to values POKEed in screen memory whereas CHRS refers to the PRINT statement. Thus, either POKE 32768,12? or PRINT CHR$(18) 
CHR$(65) will show a reverse A. Note that CHRS'N) allows program control if the screen control character. This simple program: 

10 INPUT M, N:PRINT M;N, "AA' CHRS(M)CHRS(N) ’BB":GOTO 10 allows you to explore the full CHR$ set including cursor arvd reverse. 
The chart gives CHRS codes from (0-95) and (128-223). The missing values in the chart have the equivalents: (96-127) = (32-63), 

(224-254) = (160-190), and 255 - 222. 

By referring loan ASCII code chart we see that ASCII (0-95) - PET(0-95) but that ASCI 1(96-127) - PET (192—223), ie, displaced by 96. 

The printing mode (standard or lower case) is set by POKEing an address. So as not to disturb any of the other bits in the peripheral 
control register a safe way to set the iower case mode would be: POKE 59468, PEEK(59468) OR 14 and reset it to standard made with 
POKE 59468, PEEK(59468) AND 253 OR 12. 


Standard Mode: Location 59468 
OFF RVS CHRS 



1 64 192 192 

1 0 128 64 

rs% 65 193 193 

1 Aj 1 129 65 


P 

i| 67 195 195 

J 3 131 67 

|D 

68 196 196 

4 132 68 

H 

E 

69 197 197 

5 133 69 

IfteiaBBi 

iHwm 


rgrjl 73 201 201 
1UU1 9 137 73 

a 

74 202 202 

10 138 74 

r.- 

V\ 

K 

75 203 203 

11 13? 75 

fTT) 

l 

76 204 204 

12 140 76 

\ 

M 

77 205 205 

13 141 77 

In 

1 78 206 206 

14 142 78 

m 

79 207 207 
143 79 


i 

T 

U 

P 

N 

141 

13 


XXXXI 10X 

OFF RVS CHRS 


171 

80 208 208 

16 144 80 


81 209 209 

17 145 81 

0 

82 210 210 

18 146 82 

|Q 


i e 

84 212 212 

20 148 84 

IfSTI 85 213 213 

U J| 21 149 85 

ff 

86 214 214 

22 150 86 

1 ” 

i A 

87 215 215 

23 151 87 

C¥) 88 216 216 
LxJ 24 152 88 

E 

89 217 217 

25 153 89 

I 

90 218 218 

26 154 90 

[W]} 91 219 219 

iLU: 27 155 91 

HJ 

92 220 220 

28 156 92 

I'm’] 93 221 221 
UJ 29 157 93 

m 

94 222 222 

30 158 94 


95 223 223 

31 159 95 


(n 

INK" 

— 

147 

19 

CM 

RVS 

1 ON 

146 

18 


OFF RVS CHRS 


S' 


Tl ?6 224 
32 160 


m 


97 225 
33 161 


98 226 

34 162 


99 227 
35 163 


n 


101 229 
37 165 


102 230 
38 166 


103 231 
39 167 


104 232 
40 168 


105 233 
41 169 


3 : 


106 234 
42 170 


107 235 
43 171 


108 236 
44 172 


109 237 
45 173 


110 238 
46 174 


m 


III 239 
47 175 


160 

32 


161 

33 


162 

34 


163 

35 


100 228 
36 164 


164 

36 


165 

37 


166 

38 


167 

3? 


168 

40 


169 

41 


170 

42 


171 

43 


172 

44 


173 

45 


174 

46 


175 

47 


145 

17 


157 

29 


OFF RVS CHRS 


112 

48 


240 176 

176 48 


f W) 113 241 177 

11 1 | 49 177 49 

3 

2 

114 242 178 

50 178 50 

pEn 115 243 179 
LU 51 179 51 

L 

4 

116 244 180 

52 180 52 

117 245 181 
LU 53 181 53 


[7 

119 247 183 

55 183 55 

rr 

120 248 184 
56 184 56 

E 

121 249 185 
| 57 185 57 

ll 

] 122 250 186 
58 186 58 

■ ' ] 123 251 187 

: Jl 59 187 59 

rur 

< 

124 252 188 
60 188 60 

’ ? 

125 253 189 

61 189 61 

(eH' 126 254 190 
ULJ 62 190 62 

. ? 

127 255 191 
63 191 63 


148 

20 


Lower Case Mode: Location 59468 i XXXXI 10X, Same Except 193 to 218 Prints as Lower Case a to r Plus Different Graphics: 


105 233 169 


0 122 250 186 




j 94 222 222 


-D 

1 


95 223 223 






























































CONNCrTICUT micro COMPUTER 

150 POCOHO ROAD - BROOKFIELD, CONNECTICUT 06804 
(20 3 ) 775-9659 


US-232 PRINTED ADAPTER FOR THE COMMODORE PET 


Connecticut microcomputer announces the first in a line of 
peripheral adapters for the COMMODORE PET. The PET ADAoter model 
1200 drives on RS-232 printer from the PET IEEF-4B8 bus. The 
PET ADA I200 allows the PET owner to obtain hard copy program 
listings, and to type letters, manuscripts, mailinn labels, 
tables of data, etc., usino a standard RS-232 printer. 

The PET ADA model I im is available assembled and tested, 
without Dower supplies, case, or R^-232 connector for $913.50 (plus 
$5.00 for shippino end handlino) or complete for $169 (plus $5.00 
for shipping and handling). Specify baud rate when ordering. (300 
baud is supplied unless otherwise requested. Instructions for 
changing baud rate are included.) 

This fiver was composed on the COMMODORE PET and printed 
on a CE Terminet 3W) using PET ADA model 1200. 


Send to*Connecticut microComputer:I50 Pocono Rd;Brookfield, CT 06804 


Ontv! Description 


!baud rate! price 

! total 


i PET ADA 

12 m 

(basic) 

! ! $98.50 

i 


! PET ADA 

1 2 m 

(complete) 

! ! $169.00 

j 

. i ___ 





Sub tot al 

! 



Connecticut residents add 7% sales tax ! 

Hendlinq end shipping - add per order ! $5.00 

Foreign air mail - add S5.00 per order ! 

Total enclosed ! $ 


Name 


Address 


Citv, State 


71P 

Charge my BAC/VISA 

MASTERCHARGE 

Interbank No. 

Card No. 


Exp. Date 
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370 NEXT J 

380 PRINT X; "MATCHES" 

390 NEXT G 

400 PRINT: PRINT ' SORRY - IT'S; 

410 FOR >1 TO D : PRINT A(J); : NEXT J 

420 GOTO 440 

430 PRINT "YOU GOT IT!!!" 

440 PRINT : PRINT : PRINT "ANOTHER"; 
450 INPUT AS 

460 IF LEFTS(AS, 1)0" N" GOTO 120 


100 RhM DEFLECT 1 f)N 

110 kFM rtRITTEN 3Y FRHD DUNLAP 2/11/78 

1/0 REM 1 TEA FROM KILOBAUD 2/78 

121 PRINT 'PPI NT'fcsOAVE OF DEFLECTION"' PRINT'PRINT 

1/2 PP1NT"D0 YOU WANT INSTRUCTIONS (Y OR N) J '! 

123 INPUT XS'IF X$="Y" THEN GOFUB 1000 
130 PRINT "c<" 

140 c<;-32/6» 

130 J=3 -* RFM NUMBER OF TARGETS 

160 FOR 1=1 TO J 

170 A = I NT< 1 O00*RNL)( I )) 

180 IF PEEK ( Si‘.«-A> = I 60 THEN 170 
190 POKE SS+A, I 60 
200 NEXT I 

210 A=INT(I00M*RND(I)) 

2/0 IF PEEK(SS*A) = I 60 THEN 210 
230 U=A*SS 

240 DI R = l * IF RNDU):>.5 THEN DI —I 
250 S=TI 
300 GET XS 

310 IF LEN(XS><>« THEN 600 
320 NE-U+D1 

330 IF ABS(DI)=1 THEN 430 

340 IF DI>W THEN 380 

350 IF N=<SS THFN DI=-Dl-*GOTO 320 

355 A=NF 

360 IF PEEK(A)=77 THEN DI — I *NE=NE-1 
370 IF PEEK(A)=78 THEN DI-I *NE=N£+I 
375 GOTO 530 

380 IF NE> SS + 999 THEN Dl=-n*GOTO 320 
390 A=NE 

400 IF PFFK(A>=77 THEN DI=I:NE=NE+I 
410 IF PEEK(A)=78 THEN DI=-1 *NE=NE-1 
420 GOTO 530 
4 30 IF DI >V> TIEN 4 90 

440 IF N5-40*I NT(NE/40)=7 THENTI=-Cl'GOTO320 
450 A=NE 

460 IF PEEK(A> = 77 THEN DI=-40:NE=NE+DI 
4/0 IF PEEK(A)=78 THEN DI= 40;NE=NE+[)I 
480 GOTO 530 

490 IF NE-40*INT(NE/40)=8 THEN DI--DI* GOTO 320 
500 A=NH 

510 IF PEEK(A) = 77 THEN Dt= 40»NE-NE+D1 
520 IF P£EK(A)“78 THEN DI —40*NE=NE+D1 
530 POKE U,32 

540 IF PEEK (NE) =32 THEN POKE NE. 81: U=NE :G()T(1 30' 

550 IF PEEK(NF) = I 60 THEN K=K+I 

555 POKE NE,8I:U=NE 

560 IF K=J THFN 700 

570 GOTO 300 

600 IF X$="/" THEN A=78 * GOTO 630 
610 IF X$ = "V THEN A=77'GOTO 630 
620 GOTO 320 

630 IF PEEK(U+DI)=32 THEN POKE U+DI,A:T=T+1 

640 GOTO 300 

700 A=TI-S 

710 3=1 NT (A/60-*. 5 > 

720 PRINT 'tslT TOOK YOU"T"THl£S AND «B"SECONDS" 
730 PHI NT "TO GET ALL"J J, OF THE TARGETS" 

740 A-B/J 

745 IF A<3 THFN PRINT "YOUR TOO GfX)D. GO HOME!" 

PRINT:PRINT:GOTO900 

750 IF A<5 THEN PRINT"YOU MUST HAVE BEEN 
PRACTICING"-.GOTO 900 

760 IF A<7 THEN PRINT"Y»U ARE GETTING GOOD 
AT THIS":GOTO 900 


770 .IF A< 1 I THEN PH I NT" KEEP PRACTICING - 
YOU'LL GET BETTER":GOTO 900 
700 IF A<20 THEN PH I NT "WHAT A WHIMP" «GOT<) 900 
790 PRINP'AHE YOU A SPAS?" 

900 FOR 1=1 TO 200:NEXT 
902 A=EXP(LOG(J)/3) 

905 PRI NT" YOUR SCORE"»IN7(I 000*(A/B+A/T)) 

910 PRI NT:PRINT:PRINT"DO YOU WANT TO TRY AGAIN"; 

920 INPUT XS'IF LEFTS(X$,1)<>"Y" THEN 990 

930 PRINT"HOW .MANY TARGETS DO YOU WANT";'INPUT J 

940 J-ABS(INT(J>) 

950 IF J<2 THEN 930 

960 PRlNT'fcs" '.<=/: T=0:G()7O 160 

990 END 

1000 PRINT : PRINT "YOUR MI 551 ON IS TO DEFLECT THE" 
1010 PRINT"BAf-L INTO THE TARGETS." 

1020 PRINT "YOU HAVE TWO CONTROLS OVER THE BALL;" 
1030 PRINT "THE AND THE WHEN YOU" 

1040 PRINT "TYPE A SLA C H IT WILL SHOW UP" 

1050 PRINT "IMMEDIATELY IN FRONT OF THF. BALL" 

1060 PRINT "AND THE HALL WILL BOUNCE OFF" 

1070 PRINT "THE SLASH. A SLASH ONCE LAID CANNOT" 
1080 PRINT "BE CHANGED." 

1090 PRINT *PRMT"HIT A KFY WHEN YOU ARE READY TO GO" 
1100 GET XS'IF LEN<XS>=0 THEM 1100 
1110 RETURN 


Notes from Raynor Taylor on Machine Language Programming 
Qtrs. 718 Charleston Naval Base, Charleston, SC 29408 

Video Output Routine - Call as subroutine location (decimal) 58346 
or (hex) E3EA to have ASCII character, passed in accumulator, 
printed on screen in next position. All registers. Including accum¬ 
ulator are saved and are restored prior to returning. 

To set upper bound in memory usage (keep BASIC where you want 
it) change (decimal) 134 or (hex) 36 and (decimal) 135 or (hex) 

87 to desired location when r»o strings are being stored or after a 
CLRor NEW commend. On the 8K PET, these locations are ini¬ 
tialized as (hex) 00 20 cor respond ing to location $2000, highest 
location plus one. 


PRACTICAL SOFTWARE FOR YOUR 8K PET 


Accounting Pack 1 - Includes General Ledger, Check 
Journal, Income Statement, Balance Sheet & 
more - for Home or Small Business use. Up to 40 
accounts - Up to 50 different entries per month - 
Includes User Manual 

.$25.00 

Financial Pack I - Includes Amortizationschedule, 
Calendar (figures days between two dates), 
Rebate, Compound, Annuities, & Monthly 
Payment 

.$15.00 

Chessboard - Two players can play chess on your 
own PET graphic chessboard - displays each 
player's rime and records moves for future 
playback 

.$ 10.00 

All Programs in BASIC and on Cassette 
Missouri Residents Add 3% Sales Tax 


SAWYER SOFTWARE 
828 Lewis - Rt. 3 
DEXTER, MO 6384 1 
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5 kEM*+*aACE TRACK BY ROGER E. MCGEE 

6 R£M***DONATED TO PET GROUP JAM. 1978 

7 REM***EXPERI WENT WITH 115 TO VARY SPEED 
10 PkINT J, cs":PkINTt PRINT'D) YOU MEED INSTRUCTS 
20 GETZS*IFZS=""THEN20 

30 IF2'="N"TIIEN50 

40 COSU R4 000 

50 PRINT'ts" *CLR 

60 X=0:B=6 * H=32852 

100 PRINT"cs":PRIN7'*7cd llcr" 

110 PRINT"HOW FASTI 1-9)7" 

I I I GETA $*A=VAL(A S) *IFA=OTHENI I I 
112 PRINT'eS" 

I 14 G0SUB1OO0»PRINT"ch 2cd 5cr";:Al=TI 
I 15 FORK*ITOINT(350-(A*37))* NEXT 
I 20 GETZS ! Z=VAL(2$) *IFZ=OTHENZ=B 
125 X = l 

130 IF 2=6TH6NB=6 *GOTO I 40 
135 GOTOI 90 
140 H=H+1 
145 Y=Y+I 

150 IFPEEK< H)=327HENX=0 

155 Y=Y+I 

160 PklNT" C | sp q": 

165 Y=Y+1 

170 IFX=ITHEN3000 

175 Y=Y+1 

160 G0T0115 

190 IFZ=2THEHB=2 *G()T0200 Legend: 

l 95 GOTO250 cs - clear screen 

200 H=H+40 cu - cursor up 

2I0 IFPEEKIH) =32THcNX=0 cl - cunor leFh 

220 Pkl NT"d sp cl cd q"; cr - cursor right 

230 I FX = I THEN3000 ~ cd - cursor down 

240 GOTO I 15 sp — space 

250 1F2=4THENB=4 :G()T0260 ch - cursor home 

255 GOTO3I0 lower case- 

260 H=H-| graphic symbol on 

270 IFPEEKIH) =32THENX=0 that letter key 

280 PRI MT"cl sp 2cl q"; 

290 IpX~ITHEN3000 
300 G0T0115 

310 IFZ=3THENB=8*GOTO320 
315 GOTO370 
320 H=H-40 

330 IFPEEKIH)=32THENX=0 
340 PRINF'cl sp cl cu q"; 

350 IFX-1THEN3000 
360 GOTOI I 5 
370 GOT05000 
1000 REM 
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1 01 0 

REM 





1 020 

REM 





1 030 

PRINT" 

SSSSSS SS$S5 sssssss 


1 040 

PRINT" 




1050 

PRINT" 

/ ' s STA RTAK&8.A 

818&&8&8 &&8.X 

1 060 

PRINT" 

'&&&&&&& 

&&& 

&% 

1070 

PRINT" 

'8 


&% 

1080 

PRINT" 


?? 

fd&8 && 


1090 

PRINT" 


?? 

&& 

tx 

1 1 00 

PRINT" 


&&&&£&££&&&6 

&& 

% 

1110 

PRINT" 


&&&&&&&*.&&?&&&£&&&&&&&& 

% 

.1 120 

PRINT" 




X 

1 130 

PRINT" 

' & 



X 

1140 

PRINT" 

'& 

(.&&&?&&& 


% 

1 150 

PRINT" 

' &&& 

&8fi8& 

% 

1 160 

PRINT" 


88888 


1 170 

PRINT" 

'& 


a 


1 180 

PRINT" 

/ 


8% 

1 190 

PRINT" 

/ 



8% 

1200 

PRINT" 

/ 



1210 

PRINT" 

* 


1220 

PRINT" 


1230 

RETURN 






3000 PRINT 

30 10 PR I N'T "ch 22cd"; 

3020 PRINT" SECONDS*":INTI(TI-AI)/.6>7IO0 
3025 FORK=I TO I00JGETYS sNEXT 
3030 PRINT"WANT TO TRY AGAIN?"; 

3040 GETZS*IFZ$=""THEN304O 
3050 IFZS="Y"THEN50 
3060 END 

4000 PRINT"cs" *PRINT* PRINT 

4010 PRINT" THE OBJECT OF THE GAME IS TO MOVE" 
402O PRINT"THE BALL AROUND THE TRACK TO THE END" 
4030 PklNT"WITHOUT HI7TING THE WALLS. YOU WILL" 
4040 PRINT"Be ASKED TO PICK A RATF OF SPEED" 

4050 PRINT"WHICH WILL BE SUITABLE FOR YOUR " 

406O PRINT"SKILLS. THE HIGHER THE NUMBER. THE" 
4070 PRINT"FASTER THE BALL WILL MOVE." 

4105 PRINT 

4110 PRINT" TO MOVE TO THE RIGHT, HIT 6. DOWN" 
4120 PRINT"IS 2, LEFT IS 4, AMU UP IS 8. 

4130 PRINT*PRINT"ARE YOU RFADY? 

4140 GETZS f IF2$=""THEN4140 

4I50 IFZ$» J, Y"THENkETURN 

4160 COTO4I40 

50WM PRINT"cs" f PRINT* Pkl NT 

5010 PklNT"YOU BOMBED OUT BQ0B!"*PRINT 

5020 PRINT"YOU Hit THE WRONG KEY." 

5030 GOTO3025 
READY. 




